home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Language / ace / Prgs / ACEports / wait / writer.b < prev   
Text File  |  1994-10-02  |  802b  |  46 lines
  1. '..Test of ACE messaging functions: writer.
  2.  
  3. string buffer
  4. msg$="Hello from writer!"
  5.  
  6. window 1,"Writer",(0,0)-(640,100),0
  7.  
  8. font "topaz",8
  9. locate 1,1
  10.  
  11. '..write a message to reader.
  12. repeat
  13.   print "waiting for creation of port called 'reader'."
  14.   message open #1,"reader","w"
  15.   sleep for .25
  16. until err<>400
  17.  
  18. message write #1,msg$
  19.  
  20. if err<>403 then 
  21.   print "WRITER -> READER: ";msg$ 
  22.   message wait #1
  23. end if
  24.  
  25.  
  26. '..create a port for this program called "writer"
  27. message open #2,"writer","R"
  28. if err=400 then 
  29.   print "can't create a message port!"
  30.   goto quit
  31. end if
  32.  
  33. '..await a message from reader.
  34. message wait #2
  35. message read #2,buffer
  36. if ERR<>402 then print "WRITER <- READER: ";buffer
  37.  
  38. quit:
  39. print
  40. print "Press a key..."
  41. while inkey$="":sleep:wend
  42. message close #1
  43. message close #2
  44. window close 1
  45. END
  46.